home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / Q10.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  38 lines
  1. 10  HOME : TEXT 
  2. 20  PRINT 
  3. 30  PRINT "Which of the following will reflect a   word when held in front of a mirror?"
  4. 40  PRINT : PRINT 
  5. 50  PRINT "a. REPPEP"
  6. 60  PRINT 
  7. 70  PRINT "b. MADAM"
  8. 80  PRINT 
  9. 90  PRINT "c. STEERTS"
  10. 100  PRINT 
  11. 110  PRINT "d. TIMOV"
  12. 120  PRINT : PRINT : PRINT : PRINT 
  13. 130  GET KY$
  14. 140  HOME 
  15. 150  PRINT : PRINT 
  16. 160  IF KY$ = "D"  OR KY$ = "d"  THEN  GOTO 300
  17. 170  IF KY$ = "a"  OR KY$ = "A"  THEN  PRINT  CHR$(4);"run a1"
  18. 175  IF KY$ = "c"  OR KY$ = "C"  THEN  PRINT  CHR$(4);"run a3"
  19. 180  IF KY$ = "b"  OR KY$ = "B"  THEN  PRINT  CHR$(4);"run a2"
  20. 185  IF KY$ < >"a"  OR KY$ < >"A"  OR KY$ < >"b"  OR KY$ < >"B"  OR KY$ < >"c"  OR KY$ < >"C"  OR KY$ < >"d"  OR KY$ < >"D"  THEN  GOTO 370
  21. 190  PRINT : PRINT : PRINT : PRINT 
  22. 200  FOR I = 0 TO 1000
  23. 202 J = 1
  24. 204  NEXT I
  25. 210  GOTO 10
  26. 250  END 
  27. 300  PRINT "That's Right!!"
  28. 302  PRINT : PRINT "            VOMIT": PRINT 
  29. 304  PRINT "This is the word you would see.  Wait a few seconds for more questions."
  30. 305  FOR I = 0 TO 2500: NEXT 
  31. 310  PRINT : PRINT : PRINT : PRINT 
  32. 312  PRINT  CHR$(4);"run q6"
  33. 320  PRINT "Sorry.  Try another answer."
  34. 330  GOTO 190
  35. 350  PRINT "Close, but not close enough.  Try again."
  36. 360  GOTO 190
  37. 370  PRINT "Just enter <a>, <b>, <c>, or <d>."
  38. 380  GOTO 190